#!/usr/bin/perl 

#Les formes graphiques choisi
@forme=("le","de","les","des","du");

#Un nombre donnée comme entrée du programme
print "Donnez le nombre autour de pole :\n";
$nbre_pole = <STDIN>;
# fichier d'entrée
$filename = "p96.tag";
#preparer la sortie html
open(OUT,">sortie.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">\n";
$i=0;
while ($forme[$i])
{
open(FILEIN, $filename); 
 my $pole = $forme[$i]; 
print OUT "<p align=\"center\" style=\"color:yellow;\"> \"$pole\" avec les mots autour </p>";
print OUT "<center><table bgcolor=\"black\" border=1 style=\"border-color:green;\" >\n";
#align=\"right\"
print OUT "<tr><td style=\"color:red;\">contexte gauche</td><td style=\"color:red;\">pole</td><td style=\"color:red;\">contexte droite</td></tr>";
while (my $ligne=<FILEIN>)
{
	
	while ($ligne=~/$pole/gi)
	{
		my $cg=$`;
		my $p=$&;
		my $cd=$';
		
		if (($cg eq "")||($cg=~/^[ ]+$/))
		    {
		      $cg="&nbsp;";
		    }
		else
		    {
		      @tab_cg = split(/ /,$cg);
		      $cg2="";
		      for(my $k=0; $k<$nbre_pole; $k++)
		      {
			 # print 
			$cg2.= $tab_cg[$k];
		      }
		    }
		if (($cd eq "")||($cd=~/^[ ]*$/))
		    {
		      $cd="&nbsp;";
		    }
		else
		    {
			$cd2="";
			@tab_cd = split(/ /,$cd);
			for(my $k=0; $k<$nbre_pole; $k++)
			{
			    $cd2.=$tab_cd[$k];
			}
		    }
		print OUT "<tr><td>$cg2</td><td>$p</td><td>$cd2</td></tr>";
	}
}
print OUT "</table></center>";
$i=$i+1;
}
print OUT "</body></html>";
close(FILE);
close(OUT);